home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / MSWLOG12.ARJ / ROSE.LG < prev    next >
Text File  |  1990-06-11  |  719b  |  26 lines
  1. to rose :size :petalcount :function
  2. !! 
  3. !! Roses, by Meyer A. Billmers
  4. !! 
  5. !! This procedure makes generalized roses. Do a 'hideturtle' first.
  6. !! 
  7. !! size         is the length of the line from which the rose will be drawn
  8. !! petalcount   is the number of petals
  9. !! function     is an arbitrary list of LOGO commands to execute between
  10. !!                 successive petals.
  11. !! 
  12. !! Some fun roses:
  13. !!    rose 150 20 [fd 30]
  14. !!    rose 150 20 [fd 5]
  15. !!    rose 150 90 [pu; setx xcor + 5; pd]
  16. !!    rose 150 30 [pu; setx xcor + 5; pd]
  17. !!    rose 150 30 [pu; setx xcor + 10; pd]
  18. !! 
  19. make "ctr 0
  20. 10 line :size
  21. rt 360 / :petalcount
  22. make "ctr :ctr + 1 
  23. run :function
  24. if :ctr < :petalcount [go 10]
  25. end
  26.